home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / examples / samplelibrary / usage / sampletest.d next >
Encoding:
Text File  |  2002-10-28  |  212 b   |  11 lines
  1. MODULE    'sample'
  2.  
  3. DEF    SampleBase
  4.  
  5. PROC main()
  6.     IF SampleBase:=OpenLibrary('sample.library',0)
  7.         PrintF('\d-\d=\d\n',100,40,Subtract(100,40))
  8.         CloseLibrary(SampleBase)
  9.     ELSE PrintF('no sample.library!\n')
  10. ENDPROC
  11.